www.gusucode.com > 云网互动影视系统(12套模版和资源联盟) 6.2 > 云网互动影视系统(12套模版和资源联盟) 6.2.4/免费版/Play.asp
<!--#include file="player.asp" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>普通播放器</title>
<style type="text/css">
<!--
body,td,th {
font-size: 12px;
color: #FFFFFF;
}
-->
</style>
</head>
<body oncontextmenu="return false;" onselectstart="return false"
ondragstart="return false" onkeydown="if(event.keyCode==78 && event.ctrlKey) return false;" leftMargin=0 topMargin=0 rightmargin=0 bottommargin=0>
<%
'===================================================================================================================
'软件名称：云网影视管理系统
'Copyright (C) 2002-2007 ywnt.net All rights reserved.
'产品咨询QQ：489234,2813712
'程序版权：云网互动科技有限公司
'程序开发：云网互动科技有限公司
'官方网站：http://www.ywnt.net
'郑重声明:
' 1、免费版本请在程序首页保留版权信息，并做上本站LOGO友情连接,商业版本无此要求;
' 2、任何个人或组织不得在授权允许的情况下删除、修改、拷贝本软件及其他副本上一切关于版权的信息；
' 3、云网互动科技有限公司保留此软件的法律追究权利
'===================================================================================================================
Set RS=Server.CreateObject(YWNT_TMS_RS)
SQL="select ID,DxUrl,CncUrl,TtUrl from YWNT_TMS_Sever Where ID="&SeverID
Rs.open sql,Conn,1,1
If Not RS.Eof Then
SeverUrl=RS.GetRows()
End If
RS.Close
Set RS = Nothing
Set RS=Server.CreateObject(YWNT_TMS_RS)
SQL="select MovieUrl from YWNT_TMS_MovieUrl Where ID="&UrlID
Rs.open sql,Conn,1,1
If Not RS.Eof Then
MovieUrl=RS("MovieUrl")
End If
RS.Close
Set RS = Nothing%>
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="10" colspan="3"><table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="37"><img src="play/player_03.gif" width="37" height="27" alt="" /></td>
<td width="900" background="play/player_04.gif"></td>
<td width="104"><img src="play/player_06.gif" width="104" height="27" alt="" /></td>
</tr>
</table></td>
</tr>
<tr>
<td width="8" height="100%" background="play/player_08.gif"></td>
<td width="100%" valign="top" bgcolor="#000000"><table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="959" height="27" background="play/player_10.jpg"><table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="91%">影片：<%=MovieName%></td>
<td width="9%" id="MovieFull"></td>
</tr>
</table></td>
</tr>
<tr>
<td valign="top" height="100%">
<%IF isNumeric(MovieUrl) then
call youku()
elseif InStr(LCase(MovieUrl),"&uid=")<>0 then
call iask()
else
FileExt = LCase(Mid(MovieUrl, InStrRev(MovieUrl, ".") + 1))
Select Case FileExt
Case "wmv", "mpg", "asf", "mp3", "mpeg", "avi"
call mediaPlayer()
Case "flv"
call FlashPlayer()
Case "swf"
call SwfPlayer()
Case else
call RealPlayer()
End Select
end if
Sub RealPlayer()%>
<SCRIPT language=javascript>
function SetFullScreen()
{
if (document.RealPlayer.GetPlayState()==3){
alert("还原窗口窗口请按键盘左上角[ESC]");
document.RealPlayer.SetFullScreen();
}else{
alert("影片开始播放后才可以全屏播放.");
}
}
document.getElementById("MovieFull").innerHTML='<img src="play/player_16.gif" width="75" height="20" alt="全屏播放" style="CURSOR: hand" onClick="SetFullScreen()"/>'
</SCRIPT>
<div id="ad" style="DISPLAY: none">
<%Response.Write GetSysPlay("MovieAdContent")%>
</div>
<div id=hg>
<OBJECT id="RealPlayer" name="RealPlayer" height=100% width=100% classid=clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA VIEWASTEXT>
<PARAM NAME="AUTOSTART" VALUE="1">
<PARAM NAME="CONTROLS" VALUE="ImageWindow">
<PARAM NAME="PREFETCH" VALUE="0">
<PARAM NAME="LOOP" VALUE="0">
<param name='SRC' value='<%=SeverUrl(Request.QueryString("SeverType"),0)&MovieUrl%>'>
<param name="CONSOLE" value="one">
</OBJECT>
</div>
</td></tr><tr><td>
<OBJECT id=rxx height=60 width=100% classid=clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA VIEWASTEXT>
<param name="CONTROLS" value="ControlPanel,StatusBar">
<param name="CONSOLE" value="one">
</OBJECT>
<%IF GetSysPlay("MovieAd")=1 Then%>
<SCRIPT language=JavaScript>
function Playad()
{ var state;
state=RealPlayer.GetPlayState();
if (state ==0 || state == 1 || state == 2 || state==4){
document.all.ad.style.display='inline';
document.all.hg.style.display='none';
}
else if(state == 3){
document.all.ad.style.display='none';
document.all.hg.style.display='inline';
}
}
setInterval('Playad()',500);
</SCRIPT>
<%End IF
end sub
Sub mediaPlayer()%>
<script language="javascript">
function SetFullScreen()
{
if (mediaPlayer.playState == 3){
alert("还原窗口请按键盘左上角[ESC]");
mediaPlayer.fullscreen=1;
}else{
alert("影片开始播放后才可以全屏播放.");
}
}
document.getElementById("MovieFull").innerHTML='<img src="play/player_16.gif" width="75" height="20" alt="全屏播放" style="CURSOR: hand" onClick="SetFullScreen()"/>'
</script>
<object classid="clsid:6BF52A52-394A-11d3-B153-00C04F79FAA6" id="mediaPlayer" height="100%" width="100%">
<param name="AutoStart" value="-1">
<param name="Balance" value="0">
<param name="BaseURL" value="">
<param name="CaptioningID" value>
<param name="CurrentPosition" value="-1">
<param name="CurrentMarker" value="0">
<param name="DefaultFrame" value>
<param name="Enabled" value="-1">
<param name="EnableContextMenu" value="0">
<param name="fullScreen" value="0">
<param name="InvokeURLs" value="-1">
<param name="Mute" value="0">
<param name="PlayCount" value="1">
<param name="Rate" value="1">
<param name="SAMILang" value>
<param name="SAMIStyle" value>
<param name="SAMIFileName" value>
<param name="Volume" value="50">
<param name="WindowlessVideo" value="0">
<param name="uiMode" value="full">
<param name="stretchToFit" value="0">
<param name="enableErrorDialogs" value="0">
<param name="url" value="<%=SeverUrl(Request.QueryString("SeverType"),0)&MovieUrl%>">
</object>
<%End Sub
Sub FlashPlayer()%>
<script type="text/javascript">
var swf_width="100%"
var swf_height="100%"
var texts='<%=MovieName%>'
var files='<%=SeverUrl(Request.QueryString("SeverType"),0)&MovieUrl%>'
document.write('<object classid="clsid:d27cdb6e-ae6d-11cf-96b8-444553540000" codebase="http://fpdownload.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,0,0" width="'+ swf_width +'" height="'+ swf_height +'">');
document.write('<param name="movie" value="Play/vcastr22.swf"><param name="quality" value="high">');
document.write('<param name="menu" value="false"><param name="allowFullScreen" value="true" />');
document.write('<param name="FlashVars" value="vcastr_file='+files+'&vcastr_title='+texts+'&IsAutoPlay=1">');
document.write('<embed src="Play/vcastr22.swf" allowFullScreen="true" FlashVars="vcastr_file='+files+'&vcastr_title='+texts+'&IsAutoPlay=1" menu="false" quality="high" width="'+ swf_width +'" height="'+ swf_height +'" type="application/x-shockwave-flash" pluginspage="http://www.macromedia.com/go/getflashplayer" />'); document.write('</object>');
</script>
<%End Sub
Sub SwfPlayer()%>
<script type="text/javascript">
document.write('<object classid="clsid:d27cdb6e-ae6d-11cf-96b8-444553540000" codebase="http://fpdownload.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,0,0" width="100%" height="100%">');
document.write('<param name="movie" value="<%=MovieUrl%>"><param name="quality" value="high">');
document.write('<embed src="<%=MovieUrl%>" quality="high" width="100%" height="100%" type="application/x-shockwave-flash" pluginspage="http://www.macromedia.com/go/getflashplayer" />'); document.write('</object>');
</script>
<%End Sub
sub youku()%>
<script type="text/javascript">
function addFlash(url,w,h){
document.write('<embed type="application/x-shockwave-flash" src="http://static.youku.com/v1.0.0189/v/swf/qplayer.swf" id="movie_player" name="movie_player" bgcolor="#FFFFFF" quality="high" allowfullscreen="true" flashvars="isShowRelatedVideo=false&showAd=0&show_pre=1&show_next=1&VideoIDS='+url+'&isAutoPlay=true&isDebug=false&UserID=&winType=interior&playMovie=true&MMControl=false&MMout=false&RecordCode=1001,1002,1003,1004,1005,1006,2001,3001,3002,3003,3004,3005,3007,3008,9999" pluginspage="http://www.macromedia.com/go/getflashplayer" width="'+w+'" height="'+h+'">');
}
addFlash(<%=MovieUrl%>,'100%','100%');
</script>
<%end sub
sub iask()%>
<script type="text/javascript">
function addFlash(url,w,h){
document.write('<embed allowfullscreen="true" src="http://vhead.blog.sina.com.cn/player/bn_topic.swf?vid='+url+'&clip_id=&imgurl=&auto=1&vblog=1&type=0&tabad=1" quality="high" bgcolor="#000" width="'+w+'" height="'+h+'" name="player" id="playerr" align="middle" allowScriptAccess="sameDomain" type="application/x-shockwave-flash" pluginspage="http://www.macromedia.com/go/getflashplayer">');
}
addFlash('<%=MovieUrl%>','100%','100%');
</script>
<%end sub%>
</td>
</tr>
</table></td>
<td width="8" background="play/player_12.gif"></td>
</tr>
<tr>
<td height="10" valign="top"><img src="play/player_20.gif" width="8" height="10" alt="" /></td>
<td height="10" background="play/player_22.gif"></td>
<td height="10" valign="top"><img src="play/player_24.gif" width="8" height="10" alt="" /></td>
</tr>
</table>
<%call connclose()%>
</body>
</html>